home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / EDUCAMES / AMDLOTTO.LZH / CW.BAS < prev    next >
BASIC Source File  |  1987-08-08  |  3KB  |  63 lines
  1. 10 'Created by Steven C. Hudgik
  2. 20 'COLOR WHEEL - A game for the very young
  3. 30 'Copyright 1987 - Steven C. Hudgik
  4. 40 'Distributed as shareware - you are granted the right to copy and
  5. 50 'distribute this software.  It may not be included as a part of
  6. 60 'any other software or modified in any way.
  7. 70 '
  8. 80 DIM A(5)
  9. 90 COLOR 7,0,0
  10. 100 PRINT:PRINT"PROGRAM LOADING... ";
  11. 110 CLS:LOCATE 1,1:PRINT CHR$(218);STRING$(76,196);CHR$(191)
  12. 120 FOR I=1 TO 20:PRINT CHR$(179);:PRINT TAB(78) CHR$(179):NEXT I
  13. 130 PRINT CHR$(192);STRING$(76,196);CHR$(217)
  14. 140 LOCATE 4,5:PRINT"T H E   C O L O R   W H E E L ":LOCATE 6,5:PRINT"This game has been included on the Amanda's Letter Lotto":LOCATE 7,5:PRINT"disk as a free extra.  It's a very simple game involving"
  15. 150 LOCATE 8,5:PRINT"pushing the right letter to select matching colors.":LOCATE 10,5:PRINT"Four colors will be displayed across the bottom of the screen."
  16. 160 LOCATE 11,5:PRINT"There will be a letter above each color.  One of the colors":LOCATE 12,5:PRINT"will also appear at the top of the screen.  Push the":LOCATE 13,5:PRINT"letter for the color that matches the one at"
  17. 170 LOCATE 14,5:PRINT"at the top of the screen.  There is no scoring in this game":LOCATE 15,5:PRINT"it's all just for fun.  (Ages 18 monnths to 4 years).
  18. 180 LOCATE 19,5:PRINT"A COLOR MONITOR IS REQUIRED FOR THIS GAME."
  19. 190 LOCATE 17,5:PRINT"Push ESC to end the game."
  20. 200 LOCATE 22,20:PRINT"Push any key to start... "
  21. 210 LOCATE 22,70:H$=INPUT$(1)
  22. 220 CLS:C=0:D=0:E=0:S=3:L=65
  23. 230 FOR I=1 TO 150:H$=INKEY$:NEXT I:LOCATE 6,1:PRINT"               ":C=C+1:IF C>15 THEN C=1
  24. 240 A(1)=C:COLOR C,0:GOSUB 460
  25. 250 C=C+1:IF C>15 THEN C=1
  26. 260 A(2)=C:COLOR C,0:GOSUB 480
  27. 270 C=C+1:IF C>15 THEN C=1
  28. 280 A(3)=C:COLOR C,0:GOSUB 500
  29. 290 C=C+1:IF C>15 THEN C=1
  30. 300 A(4)=C:COLOR C,0:GOSUB 520
  31. 310 COLOR 7,0,0:LOCATE 13,10:PRINT CHR$(L):LOCATE 13,30:PRINT CHR$(L+1):LOCATE 13,50:PRINT CHR$(L+2):LOCATE 13,70:PRINT CHR$(L+3):SS=S:A$=CHR$(L+S-1)
  32. 320 COLOR A(S),0:LOCATE 3,30:PRINT STRING$(12,219):LOCATE 5,30,1:PRINT "Push a key:            ";
  33. 330 LOCATE 5,42:H$=INKEY$:S=S+1:L=L+1:IF S=5 THEN S=1
  34. 340 IF L=88 THEN L=65
  35. 350 IF LEN(H$)=0 THEN 330 ELSE CH=ASC(H$)
  36. 360 IF CH=27 THEN SYSTEM ELSE IF CH>91 THEN CH=CH-32:PRINT CHR$(CH)
  37. 370 IF A$=CHR$(CH) THEN PRINT"W I N N E R" ELSE PRINT "L O S E R  "
  38. 380 IF A$=CHR$(CH) THEN 385 ELSE 450
  39. 385 T=RND
  40. 386 IF T<.1 THEN T=T+T ELSE 390
  41. 388 GOTO 386
  42. 390 SOUND 500,5
  43. 400 FOR H=1 TO 5:SOUND (T*1000)+(H*15),3:NEXT H
  44. 405 T=RND
  45. 406 IF T<.1 THEN T=T+T ELSE 410
  46. 408 GOTO 406
  47. 410 FOR H=1 TO 10:SOUND (T*2000)+(H*20),2:NEXT H
  48. 415 T=RND
  49. 416 IF T<.1 THEN T=T+T ELSE 420
  50. 418 GOTO 416
  51. 420 FOR H=1 TO 20:SOUND (T*4000)+(H*25),1:NEXT H
  52. 430 SOUND 8000,2
  53. 440 GOTO 230
  54. 450 SOUND 100,12:GOTO 230
  55. 460 LOCATE 15,1:FOR I=1 TO 8:PRINT STRING$(20,219):NEXT I
  56. 470 RETURN
  57. 480 FOR I=1 TO 8:LOCATE 14+I,21:PRINT STRING$(20,219):NEXT I
  58. 490 RETURN
  59. 500 FOR I=1 TO 8:LOCATE 14+I,41:PRINT STRING$(20,219):NEXT I
  60. 510 RETURN
  61. 520 FOR I=1 TO 8:LOCATE 14+I,61:PRINT STRING$(20,219):NEXT I
  62. 530 RETURN
  63.